﻿<!-- #include file="ding.asp" -->
<!--#include file="mymin.asp"-->
<%Call Head()
IF KEY<>0 then
	Call Error("<card title=""出错""><p>你的权限不足！")
end if

dim pp,id
pp=request.querystring("lx")
id=request.querystring("id")
if id="" or IsNumeric(id)=False then
	Call Error("<card title=""出错""><p>ID无效！")
end if
if pp="" or IsNumeric(pp)=False then
	Call Error("<card title=""出错""><p>ID无效！")
end if
Dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select * from 74hu_class where classid="&id,myconn,1,1

if rs.bof and rs.eof then
	notclass
else
	classright
end if

sub classright()
	if pp=0 then
%>
<card title="编辑页面菜单">
<p>名称:<%=noubb(rs("class"))%><br/>
类型:新的页面<br/>
请输入新页面名称<br/><input name="class1<%=time_r%>" title="名称" value="<%=noubb(rs("class"))%>" emptyok="false"/><br/>
栏目后面:<select name="br<%=time_r%>" value="<%=noubb(rs("br"))%>">
<option value="1">自动换行</option>
<option value="2">不换行</option>
</select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=noubb(rs("pid"))%>" format="*N" size="2" emptyok="false"/><br/>
<anchor>确认提交
<go href="editclasssave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name='lx' value='0'/>
</go>
</anchor>
<%elseif pp=1 then%>
<card title="编辑文章栏目">
<p>名称:<%=noubb(rs("class"))%><br/>
类型:文章栏目<br/>
请输入新栏目名称<br/><input name="class1<%=time_r%>" title="名称" value="<%=noubb(rs("class"))%>" emptyok="false"/><br/>
栏目后面:<select name="br<%=time_r%>" value="<%=noubb(rs("br"))%>">
<option value="1">自动换行</option>
<option value="2">不换行</option>
</select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=noubb(rs("pid"))%>" format="*N" size="2" emptyok="false"/><br/>
<anchor>确认提交
<go href="editclasssave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name='lx' value='1'/>
</go>
</anchor>
<%elseif pp=2 then%>
<card title="编辑UBB标签">
<p>名称:<%=noubb(rs("class"))%><br/>
类型:UBB标签<br/>新UBB标签标记<br/><input name="class1<%=time_r%>" title="名称" value="<%=noubb(rs("class"))%>" emptyok="false"/><br/>
新UBB标签内容<br/><input name="wmltxt<%=time_r%>" title="名称" value="<%=noubb(rs("wmltxt"))%>" emptyok="false"/><br/>
栏目后面:<select name="br<%=time_r%>" value="<%=noubb(rs("br"))%>">
<option value="1">自动换行</option>
<option value="2">不换行</option>
</select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=noubb(rs("pid"))%>" format="*N" size="2" emptyok="false"/><br/>
<anchor>确认提交
<go href="editclasssave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="wmltxt" value="$(wmltxt<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name='lx' value='2'/>
</go>
</anchor>
<%elseif pp=9 then%>
<card title="修改WML标签">
<p>
类型:WML标签<br/>新WML标签标记:<br/><input name="class1<%=time_r%>" title="名称" value="<%=noubb(rs("class"))%>" emptyok="false"/><br/>
新WML标签内容:<br/><input name="wmltxt<%=time_r%>" title="名称" value="<%=noubb(rs("wmltxt"))%>" emptyok="false"/><br/>
栏目后面:<select name="br<%=time_r%>" value="<%=noubb(rs("br"))%>">
<option value="1">自动换行</option>
<option value="2">不换行</option>
</select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=noubb(rs("pid"))%>" format="*N" size="2" emptyok="false"/><br/>
<anchor>确认提交
<go href="editclasssave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="wmltxt" value="$(wmltxt<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name='lx' value='9'/>
</go>
</anchor>
<%elseif pp=8 then%>
<card title="编辑随机广告">
<p>名称:<%=noubb(rs("class"))%><br/>
类型:随机广告<br/>新广告名称标记:<br/><input name="class1<%=time_r%>" title="名称" value="<%=noubb(rs("class"))%>"/><br/>
栏目后面:<select name="br<%=time_r%>" value="<%=noubb(rs("br"))%>">
<option value="1">自动换行</option>
<option value="2">不换行</option>
</select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=noubb(rs("pid"))%>" format="*N" size="2" emptyok="false"/><br/>
<anchor>确认提交
<go href="editclasssave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="URL" value="$(URL<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name='lx' value='8'/>
</go>
</anchor>
<%else
Dim cname
if p=10 then
cname="最新文章"
elseif p=11 then cname="最热文章"
elseif p=12 then cname="随机文章"
elseif p=19 then cname="站内搜框"
end if
%>
<card title="编辑调用栏目">
<p>名称:<%=noubb(rs("class"))%><br/>
类型:调用栏目<br/>新调用栏目名:<br/><input name="class1<%=time_r%>" title="名称" value="<%=noubb(rs("class"))%>" emptyok="false"/><br/>
调用栏目(留空则为全部栏目):<br/>栏目ID<input name="relid<%=time_r%>" title="条数" value="<%=noubb(rs("relid"))%>" emptyok="false"/><br/>
调用条数:<br/><input name="num<%=time_r%>" title="条数" value="<%=noubb(rs("num"))%>" emptyok="false"/><br/>
栏目后面:<select name="br<%=time_r%>" value="<%=noubb(rs("br"))%>">
<option value="1">自动换行</option>
<option value="2">不换行</option>
</select><br/>
显示顺序:<input name="pid<%=time_r%>" type="text" value="<%=noubb(rs("pid"))%>" format="*N" size="2" emptyok="false"/><br/>
<anchor>确认提交
<go href="editclasssave.asp?sid=<%=sid%>&amp;id=<%=id%>" method="post" accept-charset="utf-8">
<postfield name="class1" value="$(class1<%=time_r%>)"/>
<postfield name="pid" value="$(pid<%=time_r%>)"/>
<postfield name="br" value="$(br<%=time_r%>)"/>
<postfield name="num" value="$(num<%=time_r%>)"/>
<postfield name="relid" value="$(relid<%=time_r%>)"/>
<postfield name='lx' value='<%=pp%>'/>
</go>
</anchor>
<%end if%>
<br/>----------<br/>
<% if rs("parent")<>0 then %>
<a href='Clist.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;lx=<%=pp%>'>[栏目分类]</a><br/>
<%end if%>
<a href='class.asp?sid=<%=sid%>'>[栏目分类]</a>
<%
End Sub

sub notclass()%>
<card title="出错了">
<p align="left">
没有这个栏目!
<br/>----------<br/>
<a href='class.asp?sid=<%=sid%>'>返回栏目管理</a><%
End Sub
rs.close
set rs=nothing
call rootLast%>